From: Lars Magne Ingebrigtsen Date: Mon, 11 Oct 2010 11:02:17 +0000 (+0000) Subject: gnus-topic.el (gnus-topic-read-group): If after the last group, select the last group. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~6135 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a0f863f4b6e25ffe170a0641acd81f71dd13407e;p=emacs.git gnus-topic.el (gnus-topic-read-group): If after the last group, select the last group. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 478d2b258c7..d9dbc5d12bf 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2010-10-11 Lars Magne Ingebrigtsen + + * gnus-topic.el (gnus-topic-read-group): If after the last group, + select the last group. + 2010-10-11 Teodor Zlatanov * gnus-int.el (gnus-run-hook-with-args): Autoload from gnus-util.el. diff --git a/lisp/gnus/gnus-topic.el b/lisp/gnus/gnus-topic.el index efa543f68d6..e4afc7c2fb4 100644 --- a/lisp/gnus/gnus-topic.el +++ b/lisp/gnus/gnus-topic.el @@ -1255,6 +1255,8 @@ that group. If performed over a topic line, toggle folding the topic." (interactive "P") + (when (and (eobp) (not (gnus-group-group-name))) + (forward-line -1)) (if (gnus-group-topic-p) (let ((gnus-group-list-mode (if all (cons (if (numberp all) all 7) t) gnus-group-list-mode)))